home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / game / patch / WHDIGamesA-E.lzh / games / CoolWorld.lha / coolworld-install / Install < prev    next >
Text File  |  1998-04-28  |  1KB  |  85 lines
  1.  
  2. ;----------------------------
  3.  
  4. ;try to figure out a place where the user usually installs his games
  5. (if (exists "Games:" (noreq) )
  6.     (set @default-dest "Games:")
  7.     (if (exists "SYS:Games" (noreq) )
  8.         (set @default-dest "SYS:Games")
  9.         (if (exists "Work:Games" (noreq) )
  10.             (set @default-dest "Work:Games")
  11.             (set @default-dest "RAM:")
  12.         )
  13.     )
  14. )
  15.  
  16.  
  17. (set @default-dest
  18. (askdir
  19.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  20.     (help @askdir-help)
  21.     (default @default-dest)
  22.     (disk)
  23. )
  24. )
  25.  
  26. (set #dest (tackon @default-dest @app-name))
  27.  
  28. (copyfiles
  29.     (help @copyfiles-help)
  30.     (source "CoolWorldHD.readme")
  31.     (dest #dest)
  32.     (infos)
  33. )
  34.  
  35. (copyfiles
  36.     (help @copyfiles-help)
  37.     (source "CoolWorld.inf")
  38.     (newname "CoolWorld.info")
  39.     (dest #dest)
  40. )
  41.  
  42. (copyfiles
  43.     (help @copyfiles-help)
  44.     (source "CoolWorld.slave")
  45.     (dest #dest)
  46. )
  47.  
  48. (set #CI_drive "DF0:")
  49.  
  50. (makedir #dest
  51.     (help @makedir-help)
  52.     (infos)
  53. )
  54.  
  55. ;----------------------------
  56.  
  57. (message ("\nInsert Cool World disk 1 into drive %s " #CI_drive))
  58.  
  59.     (if
  60.         (= 0 (run ("disk2file 0 Disk.1")))
  61.         ("")
  62.         (abort)
  63.     )
  64.  
  65. (message ("\nInsert Cool World disk 2 into drive %s " #CI_drive))
  66.  
  67.     (if
  68.         (= 0 (run ("disk2file 0 Disk.2")))
  69.         ("")
  70.         (abort)
  71.     )
  72.  
  73. (copyfiles
  74.     (help @copyfiles-help)
  75.     (source "Disk.1")
  76.     (dest #dest)
  77. )
  78.  
  79. (copyfiles
  80.     (help @copyfiles-help)
  81.     (source "Disk.2")
  82.     (dest #dest)
  83. )
  84.  
  85.